﻿Public Class iRobotics1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BT1_Click(sender As Object, e As EventArgs) Handles BT1.Click
        LB1.Text = getJohnnyScore(TB1.Text, TB2.Text)
        LB2.Text = "Johnny Five is alive!!!"
        LB3.Text = "Computed Result = "
    End Sub

    Public Function getJohnnyScore(ByVal input1s As String, ByVal input2s As String) As String
        Dim input1, input2 As Single
        input1 = CSng(input1s)
        input2 = CSng(input2s)
        Dim result As Single
        result = input1 + input2
        Return CStr(result)
    End Function

End Class